home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / FILEWIP1.BAS < prev    next >
BASIC Source File  |  1991-10-31  |  1KB  |  52 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: FILEWIPE.BAS       PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 05/23/91
  4. '  USING POWER BASIC V2.10A
  5. '
  6. '  THIS PROGRAM WIPES A FILE BY OVERWRITING ALL CHARACTERS.
  7. '
  8. '  VERSION: 0.50    LAST UPDATED: 00/00/00
  9. '----------------------------------------------------------
  10. WIPE.BYTE$ = CHR$(85)  '****  PATTERN IS   01010101   ****
  11.  
  12. CLS
  13. locate 1,25:print "FILEWIPE --  A. KELLETT"
  14. LOCATE 2,15:PRINT "THIS PROGRAM WIPES A SPECIFIED FILE ON DISK"
  15. LOCATE 3,15:PRINT "AND YOU MAY DELETE THE FILE IF NEEDED."
  16.  
  17. LOCATE 5,15:INPUT "NAME OF INPUT FILE: ";FILENAME1$
  18.  
  19. '*** CHECK VALIDITY OF INPUT FILE NAME ***
  20. OPEN FILENAME1$ FOR BINARY AS #1
  21.    IF LOF(1) < 1 THEN
  22.       PRINT "THE INPUT FILE DOES NOT EXISTS."
  23.       CLOSE #1
  24.       KILL FILENAME1$
  25.       DELAY 2.5
  26.       LOCATE 22,1
  27.       END
  28.    END IF
  29.    FILE1EOF& = LOF(1)
  30. CLOSE #1
  31.  
  32. LOCATE 10,10:PRINT "NOW OVERWRITING FILE ";FILENAME1$
  33. LOCATE 12,10:PRINT USING "BYTES IN FILE ###,###";FILE1EOF&
  34. LOCATE 13,10:PRINT "WORKING ON "
  35. OPEN FILENAME1$ FOR BINARY AS #1
  36. FOR RECPOSITION& = 0 TO (FILE1EOF& - 1)
  37.    SEEK 1, RECPOSITION&
  38.    PUT$ 1, WIPE.BYTE$
  39.    LOCATE 13,20:PRINT USING "###,###";RECPOSITION& + 1
  40. NEXT RECPOSITION&
  41.  
  42. LOCATE 15,10:INPUT "DELETE THE FILE? [Y/N] ";ANSWER$
  43. IF UCASE$(ANSWER$) = "Y" THEN
  44.    KILL FILENAME1$
  45.    LOCATE 16,10:PRINT "FILE DELETED."
  46. ELSE
  47.    LOCATE 16,10:PRINT "FILE OVERWRITTEN BUT NOT DELETED."
  48. END IF
  49.  
  50. END
  51.  
  52.